home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / bell.dir / 00033_Script_Bell INsit < prev    next >
Text File  |  1997-05-26  |  595b  |  25 lines
  1. --o: Bell inSit parent
  2.  
  3.  
  4.  
  5. property pWhatMovie
  6.  
  7. global gInterfaceMgrObj
  8. ------------------------------------------------------------------------------------------
  9. on mInit me
  10.   
  11.   set pWhatMovie = 0
  12.   return( me )
  13.   
  14. end mInit
  15. ------------------------------------------------------------------------------------------
  16. on mActivate me
  17.   
  18.   mSetToolBtns (gInterfaceMgrObj,#none, me)
  19.   go frame "Insit" & string( pWhatMovie + 1)
  20.   set pWhatMovie = not pWhatMovie 
  21.   
  22.   
  23. end mActivate
  24. ------------------------------------------------------------------------------------------
  25.